home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / AllPlaton / Unsorted / !SinTab.AMOS / !SinTab.amosSourceCode
Encoding:
AMOS Source Code  |  1999-03-22  |  1.1 KB  |  48 lines
  1. Screen Open 0,848,512,4,$8004
  2. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  3. 'Screen Offset 0,176,0 
  4. Palette $FFF,$0,$F0,$F
  5. Ink 1 : Box 0,0 To 400,320
  6. Draw 0,160 To 400,160
  7. TS=64
  8. TSH#=TS/2.0
  9. For A=0 To TS-1
  10.   X=(A*400)/TS
  11.   Y=Sin((A/TSH#)*Pi#)*128
  12.   X2=((A+1)*400)/TS
  13.   Y2=Sin(((A+1)/TSH#)*Pi#)*128
  14.   Ink 2 : Extension_8_05E6 X,160-Y,2
  15.   Draw X,160-Y To X2,160-Y2
  16. Next 
  17. A=17
  18. X=(A*400)/TS
  19. Y=160-Sin((A/TSH#)*Pi#)*128
  20. Ink 1 : Box X-2,Y-2 To X+2,Y+2
  21. SF=15000
  22. A#=A
  23. AA#=(A#-(50.0/300.0))/TSH#*Pi#
  24. Y1=Sin(AA#)*SF
  25. AA#=(A#+(350.0/300.0))/TSH#*Pi#
  26. Y2=Sin(AA#)*SF
  27. If Y1>Y2 Then Swap Y1,Y2
  28. Box 432,128 To 832,128+Y2-Y1
  29. Set Line $3333
  30. Gr Writing 0
  31. Ink 1
  32. Draw X,Y To 432,128
  33. Draw X,Y To 432,128+Y2-Y1
  34. Draw X,Y To 832,128
  35. Draw X,Y To 432,Y+(((128+(Y2-Y1)-Y)*(400-X))/(832-X))
  36. Set Line -1
  37. For AA=0 To 400
  38.   AA#=(A#+((AA-50)/300.0))/TSH#*Pi#
  39.   Y=Sin(AA#)*SF
  40.   Plot 432+AA,128-Y+Y2,3
  41. Next 
  42. A1#=A#/TSH#*Pi#
  43. A2#=(A#+1.0)/TSH#*Pi#
  44. YV1=Sin(A1#)*SF
  45. YV2=Sin(A2#)*SF
  46. Ink 2 : Extension_8_05E6 432+50,128-YV1+Y2,3
  47. Ink 2 : Extension_8_05E6 432+350,128-YV2+Y2,3
  48. Draw 432+50,128-YV1+Y2 To 432+350,128-YV2+Y2